home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / utilities / comms / irc / grapevine / rexx / repeat.gvrexx < prev    next >
Encoding:
Text File  |  1995-07-13  |  544 b   |  21 lines
  1. /*) Repeat v1.0 by Josef Faulkner (panther@gate.net)  IRC: Arexx
  2. \\\ Written for Grapevine 2.0 beta
  3. ///
  4. \\\ Usage:
  5. /// /repeat <number of times> <delay between cmds in seconds> <grapevine command>
  6. \\\ 
  7. (*/
  8. options results
  9. parse arg num del cmd
  10. if ~show('L','rexxsupport.library') then if ~addlib('rexxsupport.library',0,-30,0) then do
  11.         'echo You need rexxsupport.library version 30 or greater in libs:'
  12.         exit 10 
  13. end
  14. parse version . . . . . hz .
  15. do n=1 to num
  16.         cmd
  17.         hz=left(hz,2)
  18.         call delay(del*hz)
  19. end
  20. exit
  21.